home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / dalib / timing / resolut.f < prev    next >
Text File  |  1993-04-15  |  274b  |  17 lines
  1.       program resolution
  2.  
  3.       real tstart, tstop
  4.       logical run
  5.  
  6.       call walltime (tstart)
  7.  
  8.       run = .true.
  9.       do while (run)
  10.         call walltime (tstop)
  11.         print *, 'walltime = ', tstop
  12.         run = (tstop - 10.0 .lt. tstart)
  13.       end do
  14.  
  15.       end
  16.  
  17.